home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9209.d64 / basic sinus-prog (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  131b  |  8 lines
  1. 100 FORA=0TO127
  2. 110 Q=136+136*SIN(A/(64/(null)))
  3. 120 POKE12800+A,QAND7:POKE12928+A,Q/8
  4. 130 NEXT
  5. 200 FORA=0TO180
  6. 210 POKE13056+A,100+100*SIN(A/(90/(null)))
  7. 220 NEXT
  8.